unit UPharmacyOptions;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, AdvPanel, cxGraphics,
  cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit,
  dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
  dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
  dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
  dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
  dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
  dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
  dxSkinOffice2010Black, dxSkinOffice2010Blue, dxSkinOffice2010Silver,
  dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010,
  dxSkinWhiteprint, dxSkinXmas2008Blue, cxGroupBox, DBAdvGlowNavigator,
  cxStyles, dxSkinscxPCPainter, cxCustomData, cxFilter, cxData, cxDataStorage,
  cxNavigator, Data.DB, cxDBData, cxGridLevel, cxClasses, cxGridCustomView,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, UDMPharmacy,
  AdvToolBar, AdvToolBarStylers, cxTextEdit, cxMaskEdit, cxDropDownEdit,
  cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, Vcl.StdCtrls, cxDBEdit,
  cxRadioGroup, cxCheckBox, UDMItems, Vcl.DBCtrls, USuppliers, UPharmacyLigne,
  UPharmacyCategories, UPharmacyLocation, UPharmacySubCat;

type
  TFPharmacyOptions = class(TForm)
    AdvPanelStyler1: TAdvPanelStyler;
    AdvToolBarPager1: TAdvToolBarPager;
    AdvToolBarPager11: TAdvPage;
    AdvToolBarOfficeStyler1: TAdvToolBarOfficeStyler;
    AdvToolBar1: TAdvToolBar;
    AdvToolBar3: TAdvToolBar;
    AdvToolBar2: TAdvToolBar;
    AdvToolBar4: TAdvToolBar;
    AdvToolBar5: TAdvToolBar;
    procedure AdvToolBar1Click(Sender: TObject);
    procedure AdvToolBar3Click(Sender: TObject);
    procedure AdvToolBar2Click(Sender: TObject);
    procedure AdvToolBar4Click(Sender: TObject);
    procedure AdvToolBar5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FPharmacyOptions: TFPharmacyOptions;

implementation

{$R *.dfm}

procedure TFPharmacyOptions.AdvToolBar1Click(Sender: TObject);
begin
  FPharmacyLocation.Show;
end;

procedure TFPharmacyOptions.AdvToolBar2Click(Sender: TObject);
begin
  FSuppliers.Show;
end;

procedure TFPharmacyOptions.AdvToolBar3Click(Sender: TObject);
begin
  FPharmacyLigne.Show;
end;

procedure TFPharmacyOptions.AdvToolBar4Click(Sender: TObject);
begin
  FPharmacyCategories.Show;
end;

procedure TFPharmacyOptions.AdvToolBar5Click(Sender: TObject);
begin
  FPharmacySubCat.Show;
end;

end.
